home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The School House• / Astromacronomer ••• / BASIC Runtime / BASIC Runtime.rsrc / CODE_19.txt < prev    next >
Text File  |  1986-09-30  |  43KB  |  777 lines
  1. # near model CODE resource
  2. # jump table entries: 4096-4101 (6 of them)
  3. export_512:
  4. 00000000  526D FE56                addq.w     [A5 - 0x1AA], 1
  5. 00000004  4EAD 084A                jsr        [A5 + 0x84A /* export_261 */]
  6. 00000008  4A01                     tst.b      D1
  7. 0000000A  6600 0130                bne        +0x132 /* 0000013C */
  8. 0000000E  0C40 00AA                cmpi.w     D0, 0xAA
  9. 00000012  6700 00E8                beq        +0xEA /* 000000FC */
  10. 00000016  0C40 F9F4                cmpi.w     D0, 0xF9F4
  11. 0000001A  6700 0118                beq        +0x11A /* 00000134 */
  12. 0000001E  4E56 FFE6                link       A6, -0x001A
  13. 00000022  426E FFEA                clr.w      [A6 - 0x16]
  14. 00000026  6100 0186                bsr        +0x188 /* 000001AE */
  15. 0000002A  2A00                     move.l     D5, D0
  16. 0000002C  2D52 FFFC                move.l     [A6 - 0x4], [A2]
  17. 00000030  43EE FFF0                lea.l      A1, [A6 - 0x10]
  18. 00000034  4291                     clr.l      [A1]
  19. 00000036  422E FFE6                clr.b      [A6 - 0x1A]
  20. 0000003A  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  21. 0000003E  0C40 0028                cmpi.w     D0, 0x28 /* '(' */
  22. 00000042  660E                     bne        +0x10 /* 00000052 */
  23. 00000044  4EAD 0C82                jsr        [A5 + 0xC82 /* export_396 */]
  24. 00000048  6608                     bne        +0xA /* 00000052 */
  25. 0000004A  50EE FFE6                st         [A6 - 0x1A]
  26. 0000004E  4EAD 0C92                jsr        [A5 + 0xC92 /* export_398 */]
  27. label00000052:
  28. 00000052  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  29. 00000056  6608                     bne        +0xA /* 00000060 */
  30. 00000058  4A85                     tst.l      D5
  31. 0000005A  674A                     beq        +0x4C /* 000000A6 */
  32. label0000005C:
  33. 0000005C  4EED 0182                jmp        [A5 + 0x182 /* export_44 */]
  34. label00000060:
  35. 00000060  4EAD 02C2                jsr        [A5 + 0x2C2 /* export_84 */]
  36. 00000064  4EAD 02CA                jsr        [A5 + 0x2CA /* export_85 */]
  37. 00000068  4EAD 0322                jsr        [A5 + 0x322 /* export_96 */]
  38. 0000006C  4EAD 008A                jsr        [A5 + 0x8A /* export_13 */]
  39. 00000070  42AE FFFC                clr.l      [A6 - 0x4]
  40. 00000074  0C42 0004                cmpi.w     D2, 0x4
  41. 00000078  652C                     bcs        +0x2E /* 000000A6 */
  42. 0000007A  200B                     move.l     D0, A3
  43. 0000007C  0200 0001                andi.b     D0, 0x1
  44. 00000080  671A                     beq        +0x1C /* 0000009C */
  45. 00000082  2D4B FFEC                move.l     [A6 - 0x14], A3
  46. 00000086  D6C2                     add.w      A3, D2
  47. 00000088  1D53 FFE8                move.b     [A6 - 0x18], [A3]
  48. 0000008C  244B                     movea.l    A2, A3
  49. 0000008E  528B                     addq.l     A3, 1
  50. 00000090  5342                     subq.w     D2, 1
  51. 00000092  3D42 FFEA                move.w     [A6 - 0x16], D2
  52. label00000096:
  53. 00000096  1722                     move.b     -[A3], -[A2]
  54. 00000098  51CA FFFC                dbf        D2, -0x6 /* 00000096 */
  55. label0000009C:
  56. 0000009C  45EE FFF8                lea.l      A2, [A6 - 0x8]
  57. 000000A0  248B                     move.l     [A2], A3
  58. 000000A2  2D4A FFFC                move.l     [A6 - 0x4], A2
  59. label000000A6:
  60. 000000A6  4AAE FFFC                tst.l      [A6 - 0x4]
  61. 000000AA  674A                     beq        +0x4C /* 000000F6 */
  62. 000000AC  2F08                     move.l     -[A7], A0
  63. 000000AE  4A2E FFE6                tst.b      [A6 - 0x1A]
  64. 000000B2  661E                     bne        +0x20 /* 000000D2 */
  65. 000000B4  226E FFFC                movea.l    A1, [A6 - 0x4]
  66. 000000B8  2251                     movea.l    A1, [A1]
  67. 000000BA  D2FC 0008                add.w      A1, 0x8
  68. 000000BE  3011                     move.w     D0, [A1]
  69. 000000C0  3221                     move.w     D1, -[A1]
  70. 000000C2  9061                     sub.w      D0, -[A1]
  71. 000000C4  9261                     sub.w      D1, -[A1]
  72. 000000C6  43EE FFF0                lea.l      A1, [A6 - 0x10]
  73. 000000CA  D259                     add.w      D1, [A1]+
  74. 000000CC  D059                     add.w      D0, [A1]+
  75. 000000CE  32C1                     move.w     [A1]+, D1
  76. 000000D0  32C0                     move.w     [A1]+, D0
  77. label000000D2:
  78. 000000D2  2F2E FFFC                move.l     -[A7], [A6 - 0x4]
  79. 000000D6  486E FFF0                pea.l      [A6 - 0x10]
  80. 000000DA  A8F6                     syscall    DrawPicture
  81. 000000DC  342E FFEA                move.w     D2, [A6 - 0x16]
  82. 000000E0  6712                     beq        +0x14 /* 000000F4 */
  83. 000000E2  246E FFEC                movea.l    A2, [A6 - 0x14]
  84. 000000E6  264A                     movea.l    A3, A2
  85. 000000E8  528B                     addq.l     A3, 1
  86. label000000EA:
  87. 000000EA  14DB                     move.b     [A2]+, [A3]+
  88. 000000EC  51CA FFFC                dbf        D2, -0x6 /* 000000EA */
  89. 000000F0  14AE FFE8                move.b     [A2], [A6 - 0x18]
  90. label000000F4:
  91. 000000F4  205F                     movea.l    A0, [A7]+
  92. label000000F6:
  93. 000000F6  4E5E                     unlink     A6
  94. 000000F8  6000 0088                bra        +0x8A /* 00000182 */
  95. label000000FC:
  96. 000000FC  4EAD 09F2                jsr        [A5 + 0x9F2 /* export_314 */]
  97. 00000100  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  98. 00000104  6714                     beq        +0x16 /* 0000011A */
  99. 00000106  4EAD 02C2                jsr        [A5 + 0x2C2 /* export_84 */]
  100. 0000010A  43ED F418                lea.l      A1, [A5 - 0xBE8]
  101. 0000010E  4EAD 0C7A                jsr        [A5 + 0xC7A /* export_395 */]
  102. 00000112  4EAD 0C92                jsr        [A5 + 0xC92 /* export_398 */]
  103. 00000116  4EAD 02DA                jsr        [A5 + 0x2DA /* export_87 */]
  104. label0000011A:
  105. 0000011A  2F08                     move.l     -[A7], A0
  106. 0000011C  6100 0090                bsr        +0x92 /* 000001AE */
  107. 00000120  6600 FF3A                bne        -0xC4 /* 0000005C */
  108. 00000124  6172                     bsr        +0x74 /* 00000198 */
  109. 00000126  42A7                     clr.l      -[A7]
  110. 00000128  486D F418                pea.l      [A5 - 0xBE8]
  111. 0000012C  A8F3                     syscall    OpenPicture
  112. 0000012E  249F                     move.l     [A2], [A7]+
  113. 00000130  205F                     movea.l    A0, [A7]+
  114. 00000132  604E                     bra        +0x50 /* 00000182 */
  115. label00000134:
  116. 00000134  4EAD 0452                jsr        [A5 + 0x452 /* export_134 */]
  117. 00000138  614E                     bsr        +0x50 /* 00000188 */
  118. 0000013A  6046                     bra        +0x48 /* 00000182 */
  119. label0000013C:
  120. 0000013C  3E3C 0024                move.w     D7, 0x24 /* '$' */
  121. 00000140  4EAD 044A                jsr        [A5 + 0x44A /* export_133 */]
  122. 00000144  2F08                     move.l     -[A7], A0
  123. 00000146  7400                     moveq.l    D2, 0x00
  124. 00000148  6164                     bsr        +0x66 /* 000001AE */
  125. 0000014A  2A00                     move.l     D5, D0
  126. 0000014C  2E12                     move.l     D7, [A2]
  127. 0000014E  670C                     beq        +0xE /* 0000015C */
  128. 00000150  2047                     movea.l    A0, D7
  129. 00000152  2050                     movea.l    A0, [A0]
  130. 00000154  3410                     move.w     D2, [A0]
  131. 00000156  4A85                     tst.l      D5
  132. 00000158  6702                     beq        +0x4 /* 0000015C */
  133. 0000015A  5242                     addq.w     D2, 1
  134. label0000015C:
  135. 0000015C  4EAD 0072                jsr        [A5 + 0x72 /* export_10 */]
  136. 00000160  5342                     subq.w     D2, 1
  137. 00000162  6B18                     bmi        +0x1A /* 0000017C */
  138. 00000164  284A                     movea.l    A4, A2
  139. label00000166:
  140. 00000166  14D8                     move.b     [A2]+, [A0]+
  141. 00000168  51CA FFFC                dbf        D2, -0x6 /* 00000166 */
  142. 0000016C  4A85                     tst.l      D5
  143. 0000016E  670C                     beq        +0xE /* 0000017C */
  144. 00000170  153C 00FF                move.b     -[A2], 0xFF
  145. 00000174  522C 0001                addq.b     [A4 + 0x1], 1
  146. 00000178  6402                     bcc        +0x4 /* 0000017C */
  147. 0000017A  5214                     addq.b     [A4], 1
  148. label0000017C:
  149. 0000017C  205F                     movea.l    A0, [A7]+
  150. 0000017E  4EAD 007A                jsr        [A5 + 0x7A /* export_11 */]
  151. label00000182:
  152. 00000182  536D FE56                subq.w     [A5 - 0x1AA], 1
  153. 00000186  4E75                     rts
  154. fn00000188:
  155. 00000188  48E7 E0E0                movem.l    -[A7], D0,D1,D2,A0,A1,A2
  156. 0000018C  6120                     bsr        +0x22 /* 000001AE */
  157. 0000018E  6702                     beq        +0x4 /* 00000192 */
  158. 00000190  A8F4                     syscall    ClosePicture
  159. label00000192:
  160. 00000192  4CDF 0707                movem.l    D0,D1,D2,A0,A1,A2, [A7]+
  161. 00000196  4E75                     rts
  162. fn00000198:
  163. 00000198  48E7 E0E0                movem.l    -[A7], D0,D1,D2,A0,A1,A2
  164. 0000019C  6110                     bsr        +0x12 /* 000001AE */
  165. 0000019E  2012                     move.l     D0, [A2]
  166. 000001A0  6706                     beq        +0x8 /* 000001A8 */
  167. 000001A2  4292                     clr.l      [A2]
  168. 000001A4  2F00                     move.l     -[A7], D0
  169. 000001A6  A8F5                     syscall    KillPicture
  170. label000001A8:
  171. 000001A8  4CDF 0707                movem.l    D0,D1,D2,A0,A1,A2, [A7]+
  172. 000001AC  4E75                     rts
  173. fn000001AE:
  174. 000001AE  4EAD 0A22                jsr        [A5 + 0xA22 /* export_320 */]
  175. 000001B2  7010                     moveq.l    D0, 0x10
  176. 000001B4  D08A                     add.l      D0, A2
  177. 000001B6  2452                     movea.l    A2, [A2]
  178. 000001B8  246A 005C                movea.l    A2, [A2 + 0x5C]
  179. 000001BC  C18A                     exg        D0, A2
  180. 000001BE  4A80                     tst.l      D0
  181. 000001C0  4E75                     rts
  182. export_513:
  183. 000001C2  526D FE56                addq.w     [A5 - 0x1AA], 1
  184. 000001C6  4A01                     tst.b      D1
  185. 000001C8  6600 00D0                bne        +0xD2 /* 0000029A */
  186. 000001CC  4E56 FFF8                link       A6, -0x0008
  187. 000001D0  0C40 F9FB                cmpi.w     D0, 0xF9FB
  188. 000001D4  663C                     bne        +0x3E /* 00000212 */
  189. 000001D6  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  190. 000001DA  0C40 0023                cmpi.w     D0, 0x23 /* '#' */
  191. 000001DE  6624                     bne        +0x26 /* 00000204 */
  192. 000001E0  7402                     moveq.l    D2, 0x02
  193. 000001E2  4EAD 0502                jsr        [A5 + 0x502 /* export_156 */]
  194. 000001E6  286D F072                movea.l    A4, [A5 - 0xF8E]
  195. 000001EA  4EAD 02DA                jsr        [A5 + 0x2DA /* export_87 */]
  196. 000001EE  4EAD 051A                jsr        [A5 + 0x51A /* export_159 */]
  197. 000001F2  6604                     bne        +0x6 /* 000001F8 */
  198. 000001F4  4EED 050A                jmp        [A5 + 0x50A /* export_157 */]
  199. label000001F8:
  200. 000001F8  4EAD 0A4A                jsr        [A5 + 0xA4A /* export_325 */]
  201. 000001FC  4EAD 0212                jsr        [A5 + 0x212 /* export_62 */]
  202. 00000200  6000 0090                bra        +0x92 /* 00000292 */
  203. label00000204:
  204. 00000204  6100 0392                bsr        +0x394 /* 00000598 */
  205. 00000208  4EAD 02DA                jsr        [A5 + 0x2DA /* export_87 */]
  206. 0000020C  6100 0350                bsr        +0x352 /* 0000055E */
  207. 00000210  6062                     bra        +0x64 /* 00000274 */
  208. label00000212:
  209. 00000212  0C40 0087                cmpi.w     D0, 0x87
  210. 00000216  660A                     bne        +0xC /* 00000222 */
  211. 00000218  6100 0372                bsr        +0x374 /* 0000058C */
  212. 0000021C  6100 02BE                bsr        +0x2C0 /* 000004DC */
  213. 00000220  6052                     bra        +0x54 /* 00000274 */
  214. label00000222:
  215. 00000222  97CB                     sub.l      A3, A3
  216. 00000224  93C9                     sub.l      A1, A1
  217. 00000226  7800                     moveq.l    D4, 0x00
  218. 00000228  3A04                     move.w     D5, D4
  219. 0000022A  6100 036C                bsr        +0x36E /* 00000598 */
  220. 0000022E  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  221. 00000232  673C                     beq        +0x3E /* 00000270 */
  222. 00000234  4EAD 02C2                jsr        [A5 + 0x2C2 /* export_84 */]
  223. 00000238  0C40 002C                cmpi.w     D0, 0x2C /* ',' */
  224. 0000023C  670E                     beq        +0x10 /* 0000024C */
  225. 0000023E  4EAD 02CA                jsr        [A5 + 0x2CA /* export_85 */]
  226. 00000242  4EAD 0322                jsr        [A5 + 0x322 /* export_96 */]
  227. 00000246  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  228. 0000024A  6724                     beq        +0x26 /* 00000270 */
  229. label0000024C:
  230. 0000024C  4EAD 02C2                jsr        [A5 + 0x2C2 /* export_84 */]
  231. 00000250  0C40 002C                cmpi.w     D0, 0x2C /* ',' */
  232. 00000254  670E                     beq        +0x10 /* 00000264 */
  233. 00000256  43EE FFF8                lea.l      A1, [A6 - 0x8]
  234. 0000025A  4EAD 0C7A                jsr        [A5 + 0xC7A /* export_395 */]
  235. 0000025E  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  236. 00000262  670C                     beq        +0xE /* 00000270 */
  237. label00000264:
  238. 00000264  4EAD 02C2                jsr        [A5 + 0x2C2 /* export_84 */]
  239. 00000268  4EAD 0462                jsr        [A5 + 0x462 /* export_136 */]
  240. 0000026C  3A02                     move.w     D5, D2
  241. 0000026E  7801                     moveq.l    D4, 0x01
  242. label00000270:
  243. 00000270  6100 00B0                bsr        +0xB2 /* 00000322 */
  244. label00000274:
  245. 00000274  422D F249                clr.b      [A5 - 0xDB7]
  246. 00000278  4EAD 08C2                jsr        [A5 + 0x8C2 /* export_276 */]
  247. 0000027C  4A92                     tst.l      [A2]
  248. 0000027E  6712                     beq        +0x14 /* 00000292 */
  249. 00000280  2252                     movea.l    A1, [A2]
  250. 00000282  4A29 006E                tst.b      [A1 + 0x6E]
  251. 00000286  670A                     beq        +0xC /* 00000292 */
  252. 00000288  4A2A 0018                tst.b      [A2 + 0x18]
  253. 0000028C  6A04                     bpl        +0x6 /* 00000292 */
  254. 0000028E  50ED F249                st         [A5 - 0xDB7]
  255. label00000292:
  256. 00000292  4E5E                     unlink     A6
  257. 00000294  536D FE56                subq.w     [A5 - 0x1AA], 1
  258. 00000298  4E75                     rts
  259. label0000029A:
  260. 0000029A  48E7 0080                movem.l    -[A7], A0
  261. 0000029E  4EAD 0032                jsr        [A5 + 0x32 /* export_2 */]
  262. 000002A2  0C43 0006                cmpi.w     D3, 0x6
  263. 000002A6  6200 FDB4                bhi        -0x24A /* 0000005C */
  264. 000002AA  4EAD 09F2                jsr        [A5 + 0x9F2 /* export_314 */]
  265. 000002AE  4EAD 0A22                jsr        [A5 + 0xA22 /* export_320 */]
  266. 000002B2  2452                     movea.l    A2, [A2]
  267. 000002B4  D643                     add.w      D3, D3
  268. 000002B6  43FA 0018                lea.l      A1, [PC + 0x18 /* 000002D0, value 0xE0020, cstring "" */]
  269. 000002BA  D2F1 3000                add.w      A1, [A1 + D3.w]
  270. 000002BE  7600                     moveq.l    D3, 0x00
  271. 000002C0  4E91                     jsr        [A1]
  272. 000002C2  4EAD 01D2                jsr        [A5 + 0x1D2 /* export_54 */]
  273. 000002C6  4CDF 0100                movem.l    A0, [A7]+
  274. 000002CA  536D FE56                subq.w     [A5 - 0x1AA], 1
  275. 000002CE  4E75                     rts
  276. 000002D0  000E 0020                ori.b      A6, 0x20 /* ' ' */
  277. 000002D4  0028 002E 0034           ori.b      [A0 + 0x34], 0x2E /* '.' */
  278. 000002DA  003A 0040 4EAD           ori.b      [PC + 0x4EAD /* 00005189, cstring ""<EOF> */], 0x40 /* '@' */
  279. 000002E0  0A2A 362D F404           xori.b     [A2 - 0xBFC], 0x2D /* '-' */
  280. 000002E6  B0AD FAEE                cmp.l      D0, [A5 - 0x512]
  281. 000002EA  6708                     beq        +0xA /* 000002F4 */
  282. 000002EC  7600                     moveq.l    D3, 0x00
  283. 000002EE  4E75                     rts
  284. 000002F0  362D F402                move.w     D3, [A5 - 0xBFE]
  285. label000002F4:
  286. 000002F4  5283                     addq.l     D3, 1
  287. 000002F6  4E75                     rts
  288. 000002F8  362D F41E                move.w     D3, [A5 - 0xBE2]
  289. 000002FC  4E75                     rts
  290. 000002FE  362D F41C                move.w     D3, [A5 - 0xBE4]
  291. 00000302  4E75                     rts
  292. 00000304  362A 0032                move.w     D3, [A2 + 0x32]
  293. 00000308  4E75                     rts
  294. 0000030A  362A 0030                move.w     D3, [A2 + 0x30]
  295. 0000030E  4E75                     rts
  296. 00000310  4EAD 0A22                jsr        [A5 + 0xA22 /* export_320 */]
  297. 00000314  362A 0006                move.w     D3, [A2 + 0x6]
  298. 00000318  6706                     beq        +0x8 /* 00000320 */
  299. 0000031A  4EAD 0C4A                jsr        [A5 + 0xC4A /* export_389 */]
  300. 0000031E  2610                     move.l     D3, [A0]
  301. label00000320:
  302. 00000320  4E75                     rts
  303. export_514:
  304. fn00000322:
  305. 00000322  526D FE56                addq.w     [A5 - 0x1AA], 1
  306. 00000326  48E7 0EB2                movem.l    -[A7], D4,D5,D6,A0,A2,A3,A6
  307. 0000032A  2C49                     movea.l    A6, A1
  308. 0000032C  5343                     subq.w     D3, 1
  309. 0000032E  6100 011C                bsr        +0x11E /* 0000044C */
  310. 00000332  7C01                     moveq.l    D6, 0x01
  311. 00000334  4A04                     tst.b      D4
  312. 00000336  6712                     beq        +0x14 /* 0000034A */
  313. 00000338  1C05                     move.b     D6, D5
  314. 0000033A  4A45                     tst.w      D5
  315. 0000033C  6A02                     bpl        +0x4 /* 00000340 */
  316. 0000033E  4445                     neg.w      D5
  317. label00000340:
  318. 00000340  5345                     subq.w     D5, 1
  319. 00000342  0C05 0004                cmpi.b     D5, 0x4
  320. 00000346  6400 FD14                bcc        -0x2EA /* 0000005C */
  321. label0000034A:
  322. 0000034A  4EAD 0A42                jsr        [A5 + 0xA42 /* export_324 */]
  323. 0000034E  4EAD 08C2                jsr        [A5 + 0x8C2 /* export_276 */]
  324. 00000352  2012                     move.l     D0, [A2]
  325. 00000354  6714                     beq        +0x16 /* 0000036A */
  326. 00000356  4A04                     tst.b      D4
  327. 00000358  6606                     bne        +0x8 /* 00000360 */
  328. 0000035A  1C2A 0018                move.b     D6, [A2 + 0x18]
  329. 0000035E  6074                     bra        +0x76 /* 000003D4 */
  330. label00000360:
  331. 00000360  2F00                     move.l     -[A7], D0
  332. 00000362  6100 017A                bsr        +0x17C /* 000004DE */
  333. 00000366  A92D                     syscall    CloseWindow
  334. 00000368  4292                     clr.l      [A2]
  335. label0000036A:
  336. 0000036A  1546 0018                move.b     [A2 + 0x18], D6
  337. 0000036E  43ED F526                lea.l      A1, [A5 - 0xADA]
  338. 00000372  3E03                     move.w     D7, D3
  339. 00000374  CEFC 00A4                mulu.w     D7, 0xA4
  340. 00000378  D3C7                     add.l      A1, D7
  341. 0000037A  4A05                     tst.b      D5
  342. 0000037C  673E                     beq        +0x40 /* 000003BC */
  343. 0000037E  42A7                     clr.l      -[A7]
  344. 00000380  2F09                     move.l     -[A7], A1
  345. 00000382  200E                     move.l     D0, A6
  346. 00000384  6604                     bne        +0x6 /* 0000038A */
  347. 00000386  4DFA 00A8                lea.l      A6, [PC + 0xA8 /* 00000430, value 0x3C00C8, cstring "" */]
  348. label0000038A:
  349. 0000038A  2F0E                     move.l     -[A7], A6
  350. 0000038C  200B                     move.l     D0, A3
  351. 0000038E  6606                     bne        +0x8 /* 00000396 */
  352. 00000390  4EAD 0A1A                jsr        [A5 + 0xA1A /* export_319 */]
  353. 00000394  6004                     bra        +0x6 /* 0000039A */
  354. label00000396:
  355. 00000396  4EAD 086A                jsr        [A5 + 0x86A /* export_265 */]
  356. label0000039A:
  357. 0000039A  486D ED88                pea.l      [A5 - 0x1278]
  358. 0000039E  4267                     clr.w      -[A7]
  359. 000003A0  3F05                     move.w     -[A7], D5
  360. 000003A2  70FF                     moveq.l    D0, 0xFFFFFFFF
  361. 000003A4  2F00                     move.l     -[A7], D0
  362. 000003A6  4267                     clr.w      -[A7]
  363. 000003A8  42A7                     clr.l      -[A7]
  364. 000003AA  A913                     syscall    NewWindow
  365. 000003AC  249F                     move.l     [A2], [A7]+
  366. 000003AE  6100 0088                bsr        +0x8A /* 00000438 */
  367. 000003B2  4A43                     tst.w      D3
  368. 000003B4  665E                     bne        +0x60 /* 00000414 */
  369. 000003B6  50ED F24A                st         [A5 - 0xDB6]
  370. 000003BA  6058                     bra        +0x5A /* 00000414 */
  371. label000003BC:
  372. 000003BC  3F3C 0100                move.w     -[A7], 0x100
  373. 000003C0  2F09                     move.l     -[A7], A1
  374. 000003C2  3F3C 0001                move.w     -[A7], 0x1
  375. 000003C6  4267                     clr.w      -[A7]
  376. 000003C8  4EAD 0AF2                jsr        [A5 + 0xAF2 /* export_346 */]
  377. 000003CC  2480                     move.l     [A2], D0
  378. 000003CE  6168                     bsr        +0x6A /* 00000438 */
  379. 000003D0  422D F24A                clr.b      [A5 - 0xDB6]
  380. label000003D4:
  381. 000003D4  220B                     move.l     D1, A3
  382. 000003D6  6706                     beq        +0x8 /* 000003DE */
  383. 000003D8  3203                     move.w     D1, D3
  384. 000003DA  4EAD 0A02                jsr        [A5 + 0xA02 /* export_316 */]
  385. label000003DE:
  386. 000003DE  200E                     move.l     D0, A6
  387. 000003E0  6608                     bne        +0xA /* 000003EA */
  388. 000003E2  4A04                     tst.b      D4
  389. 000003E4  672E                     beq        +0x30 /* 00000414 */
  390. 000003E6  4DED FAFA                lea.l      A6, [A5 - 0x506]
  391. label000003EA:
  392. 000003EA  2F12                     move.l     -[A7], [A2]
  393. 000003EC  3F2E 0002                move.w     -[A7], [A6 + 0x2]
  394. 000003F0  3F2E 0000                move.w     -[A7], [A6 + 0x0]
  395. 000003F4  3F3C FFFF                move.w     -[A7], 0xFFFF
  396. 000003F8  A91B                     syscall    MoveWindow
  397. 000003FA  2F12                     move.l     -[A7], [A2]
  398. 000003FC  302E 0006                move.w     D0, [A6 + 0x6]
  399. 00000400  906E 0002                sub.w      D0, [A6 + 0x2]
  400. 00000404  3F00                     move.w     -[A7], D0
  401. 00000406  302E 0004                move.w     D0, [A6 + 0x4]
  402. 0000040A  906E 0000                sub.w      D0, [A6 + 0x0]
  403. 0000040E  3F00                     move.w     -[A7], D0
  404. 00000410  4EAD 089A                jsr        [A5 + 0x89A /* export_271 */]
  405. label00000414:
  406. 00000414  6100 0164                bsr        +0x166 /* 0000057A */
  407. 00000418  4EAD 08C2                jsr        [A5 + 0x8C2 /* export_276 */]
  408. 0000041C  2012                     move.l     D0, [A2]
  409. 0000041E  4EAD 095A                jsr        [A5 + 0x95A /* export_295 */]
  410. 00000422  4EAD 08A2                jsr        [A5 + 0x8A2 /* export_272 */]
  411. 00000426  4CDF 4D70                movem.l    D4,D5,D6,A0,A2,A3,A6, [A7]+
  412. 0000042A  536D FE56                subq.w     [A5 - 0x1AA], 1
  413. 0000042E  4E75                     rts
  414. 00000430  003C 00C8                ori.b      ccr, 200
  415. 00000434  00C8                     .incomplete
  416. 00000436  0190                     bclr       [A0], D0
  417. fn00000438:
  418. 00000438  4EAD 0A42                jsr        [A5 + 0xA42 /* export_324 */]
  419. 0000043C  3F3C 0008                move.w     -[A7], 0x8
  420. 00000440  A89C                     syscall    PenMode
  421. 00000442  3F3C 0000                move.w     -[A7], 0x0
  422. 00000446  A889                     syscall    TextMode
  423. 00000448  4EED 0922                jmp        [A5 + 0x922 /* export_288 */]
  424. fn0000044C:
  425. 0000044C  0C43 0006                cmpi.w     D3, 0x6
  426. 00000450  6400 FC0A                bcc        -0x3F4 /* 0000005C */
  427. 00000454  4E75                     rts
  428. export_515:
  429. 00000456  526D FE56                addq.w     [A5 - 0x1AA], 1
  430. 0000045A  48E7 FCF0                movem.l    -[A7], D0,D1,D2,D3,D4,D5,A0,A1,A2,A3
  431. 0000045E  7606                     moveq.l    D3, 0x06
  432. 00000460  6012                     bra        +0x14 /* 00000474 */
  433. label00000462:
  434. 00000462  617A                     bsr        +0x7C /* 000004DE */
  435. 00000464  3203                     move.w     D1, D3
  436. 00000466  4EAD 0A0A                jsr        [A5 + 0xA0A /* export_317 */]
  437. 0000046A  2012                     move.l     D0, [A2]
  438. 0000046C  6706                     beq        +0x8 /* 00000474 */
  439. 0000046E  2F00                     move.l     -[A7], D0
  440. 00000470  A92D                     syscall    CloseWindow
  441. 00000472  4292                     clr.l      [A2]
  442. label00000474:
  443. 00000474  5343                     subq.w     D3, 1
  444. 00000476  650E                     bcs        +0x10 /* 00000486 */
  445. 00000478  66E8                     bne        -0x16 /* 00000462 */
  446. 0000047A  4A2D F24A                tst.b      [A5 - 0xDB6]
  447. 0000047E  66E2                     bne        -0x1C /* 00000462 */
  448. 00000480  6100 00B4                bsr        +0xB6 /* 00000536 */
  449. 00000484  6010                     bra        +0x12 /* 00000496 */
  450. label00000486:
  451. 00000486  7601                     moveq.l    D3, 0x01
  452. 00000488  3803                     move.w     D4, D3
  453. 0000048A  3A03                     move.w     D5, D3
  454. 0000048C  97CB                     sub.l      A3, A3
  455. 0000048E  224B                     movea.l    A1, A3
  456. 00000490  6100 FE90                bsr        -0x16E /* 00000322 */
  457. 00000494  7600                     moveq.l    D3, 0x00
  458. label00000496:
  459. 00000496  4EAD 0A42                jsr        [A5 + 0xA42 /* export_324 */]
  460. 0000049A  6100 00DE                bsr        +0xE0 /* 0000057A */
  461. 0000049E  A89E                     syscall    PenNormal
  462. 000004A0  3F3C 0001                move.w     -[A7], 0x1
  463. 000004A4  A887                     syscall    TextFont
  464. 000004A6  3F3C 000C                move.w     -[A7], 0xC
  465. 000004AA  A88A                     syscall    TextSize
  466. 000004AC  486D FFF4                pea.l      [A5 - 0xC]
  467. 000004B0  A87C                     syscall    BackPat
  468. 000004B2  4267                     clr.w      -[A7]
  469. 000004B4  A888                     syscall    TextFace
  470. 000004B6  3B7C FFFF F40E           move.w     [A5 - 0xBF2], 0xFFFF
  471. 000004BC  4EAD 084A                jsr        [A5 + 0x84A /* export_261 */]
  472. 000004C0  206D F40A                movea.l    A0, [A5 - 0xBF6]
  473. 000004C4  4268 0042                clr.w      [A0 + 0x42]
  474. 000004C8  4EAD 0922                jsr        [A5 + 0x922 /* export_288 */]
  475. 000004CC  536D FE56                subq.w     [A5 - 0x1AA], 1
  476. 000004D0  704C                     moveq.l    D0, 0x4C
  477. 000004D2  4EAD 082A                jsr        [A5 + 0x82A /* export_257 */]
  478. 000004D6  4CDF 0F3F                movem.l    D0,D1,D2,D3,D4,D5,A0,A1,A2,A3, [A7]+
  479. 000004DA  4E75                     rts
  480. fn000004DC:
  481. 000004DC  5343                     subq.w     D3, 1
  482. fn000004DE:
  483. 000004DE  48E7 F0E0                movem.l    -[A7], D0,D1,D2,D3,A0,A1,A2
  484. 000004E2  6100 FF68                bsr        -0x96 /* 0000044C */
  485. 000004E6  3203                     move.w     D1, D3
  486. 000004E8  4EAD 0A0A                jsr        [A5 + 0xA0A /* export_317 */]
  487. 000004EC  2012                     move.l     D0, [A2]
  488. 000004EE  6740                     beq        +0x42 /* 00000530 */
  489. 000004F0  4EAD 0A72                jsr        [A5 + 0xA72 /* export_330 */]
  490. 000004F4  6140                     bsr        +0x42 /* 00000536 */
  491. 000004F6  5243                     addq.w     D3, 1
  492. 000004F8  41ED FB3E                lea.l      A0, [A5 - 0x4C2]
  493. 000004FC  4EAD 0832                jsr        [A5 + 0x832 /* export_258 */]
  494. 00000500  671C                     beq        +0x1E /* 0000051E */
  495. 00000502  41ED FB36                lea.l      A0, [A5 - 0x4CA]
  496. 00000506  1F3C 0000                move.b     -[A7], 0x0
  497. label0000050A:
  498. 0000050A  1F18                     move.b     -[A7], [A0]+
  499. 0000050C  66FC                     bne        -0x2 /* 0000050A */
  500. 0000050E  C143                     exg        D0, D3
  501. 00000510  5343                     subq.w     D3, 1
  502. 00000512  4EAD 0A42                jsr        [A5 + 0xA42 /* export_324 */]
  503. 00000516  C143                     exg        D0, D3
  504. 00000518  111F                     move.b     -[A0], [A7]+
  505. label0000051A:
  506. 0000051A  111F                     move.b     -[A0], [A7]+
  507. 0000051C  66FC                     bne        -0x2 /* 0000051A */
  508. label0000051E:
  509. 0000051E  41ED FB36                lea.l      A0, [A5 - 0x4CA]
  510. 00000522  4EAD 0832                jsr        [A5 + 0x832 /* export_258 */]
  511. 00000526  6708                     beq        +0xA /* 00000530 */
  512. 00000528  3600                     move.w     D3, D0
  513. 0000052A  5343                     subq.w     D3, 1
  514. 0000052C  4EAD 0A3A                jsr        [A5 + 0xA3A /* export_323 */]
  515. label00000530:
  516. 00000530  4CDF 070F                movem.l    D0,D1,D2,D3,A0,A1,A2, [A7]+
  517. 00000534  4E75                     rts
  518. fn00000536:
  519. 00000536  3F2D F402                move.w     -[A7], [A5 - 0xBFE]
  520. 0000053A  4EAD 0A3A                jsr        [A5 + 0xA3A /* export_323 */]
  521. 0000053E  3B43 F402                move.w     [A5 - 0xBFE], D3
  522. 00000542  7600                     moveq.l    D3, 0x00
  523. 00000544  4EAD 0C02                jsr        [A5 + 0xC02 /* export_380 */]
  524. 00000548  4EAD 0C42                jsr        [A5 + 0xC42 /* export_388 */]
  525. 0000054C  6100 FC3A                bsr        -0x3C4 /* 00000188 */
  526. 00000550  6100 FC46                bsr        -0x3B8 /* 00000198 */
  527. 00000554  362D F402                move.w     D3, [A5 - 0xBFE]
  528. 00000558  3B5F F402                move.w     [A5 - 0xBFE], [A7]+
  529. 0000055C  4E75                     rts
  530. fn0000055E:
  531. 0000055E  5343                     subq.w     D3, 1
  532. 00000560  2F08                     move.l     -[A7], A0
  533. 00000562  6100 FEE8                bsr        -0x116 /* 0000044C */
  534. 00000566  3203                     move.w     D1, D3
  535. 00000568  4EAD 0A0A                jsr        [A5 + 0xA0A /* export_317 */]
  536. 0000056C  2012                     move.l     D0, [A2]
  537. 0000056E  6700 FAEC                beq        -0x512 /* 0000005C */
  538. 00000572  4EAD 0A3A                jsr        [A5 + 0xA3A /* export_323 */]
  539. 00000576  205F                     movea.l    A0, [A7]+
  540. 00000578  4E75                     rts
  541. fn0000057A:
  542. 0000057A  48E7 E0E0                movem.l    -[A7], D0,D1,D2,A0,A1,A2
  543. 0000057E  4EAD 0A22                jsr        [A5 + 0xA22 /* export_320 */]
  544. 00000582  2F12                     move.l     -[A7], [A2]
  545. 00000584  A915                     syscall    ShowWindow
  546. 00000586  4CDF 0707                movem.l    D0,D1,D2,A0,A1,A2, [A7]+
  547. 0000058A  4E75                     rts
  548. fn0000058C:
  549. 0000058C  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  550. 00000590  6106                     bsr        +0x8 /* 00000598 */
  551. 00000592  3602                     move.w     D3, D2
  552. 00000594  4EED 02DA                jmp        [A5 + 0x2DA /* export_87 */]
  553. fn00000598:
  554. 00000598  4EAD 045A                jsr        [A5 + 0x45A /* export_135 */]
  555. 0000059C  3602                     move.w     D3, D2
  556. 0000059E  4E75                     rts
  557. export_516:
  558. 000005A0  526D FE56                addq.w     [A5 - 0x1AA], 1
  559. 000005A4  4A01                     tst.b      D1
  560. 000005A6  6670                     bne        +0x72 /* 00000618 */
  561. 000005A8  4A2D F01E                tst.b      [A5 - 0xFE2]
  562. 000005AC  6604                     bne        +0x6 /* 000005B2 */
  563. 000005AE  615E                     bsr        +0x60 /* 0000060E */
  564. 000005B0  6056                     bra        +0x58 /* 00000608 */
  565. label000005B2:
  566. 000005B2  0C40 F8BC                cmpi.w     D0, 0xF8BC
  567. 000005B6  660A                     bne        +0xC /* 000005C2 */
  568. 000005B8  4EAD 0452                jsr        [A5 + 0x452 /* export_134 */]
  569. 000005BC  6100 019A                bsr        +0x19C /* 00000758 */
  570. 000005C0  6046                     bra        +0x48 /* 00000608 */
  571. label000005C2:
  572. 000005C2  2248                     movea.l    A1, A0
  573. 000005C4  3400                     move.w     D2, D0
  574. 000005C6  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  575. 000005CA  2049                     movea.l    A0, A1
  576. 000005CC  660A                     bne        +0xC /* 000005D8 */
  577. 000005CE  3002                     move.w     D0, D2
  578. 000005D0  7202                     moveq.l    D1, 0x02
  579. 000005D2  4EAD 062A                jsr        [A5 + 0x62A /* export_193 */]
  580. 000005D6  6030                     bra        +0x32 /* 00000608 */
  581. label000005D8:
  582. 000005D8  4EAD 045A                jsr        [A5 + 0x45A /* export_135 */]
  583. 000005DC  3602                     move.w     D3, D2
  584. 000005DE  4EAD 02C2                jsr        [A5 + 0x2C2 /* export_84 */]
  585. 000005E2  4EAD 045A                jsr        [A5 + 0x45A /* export_135 */]
  586. 000005E6  3802                     move.w     D4, D2
  587. 000005E8  4EAD 02C2                jsr        [A5 + 0x2C2 /* export_84 */]
  588. 000005EC  4EAD 045A                jsr        [A5 + 0x45A /* export_135 */]
  589. 000005F0  3A02                     move.w     D5, D2
  590. 000005F2  97CB                     sub.l      A3, A3
  591. 000005F4  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  592. 000005F8  670C                     beq        +0xE /* 00000606 */
  593. 000005FA  4EAD 02C2                jsr        [A5 + 0x2C2 /* export_84 */]
  594. 000005FE  4EAD 02CA                jsr        [A5 + 0x2CA /* export_85 */]
  595. 00000602  4EAD 0322                jsr        [A5 + 0x322 /* export_96 */]
  596. label00000606:
  597. 00000606  6136                     bsr        +0x38 /* 0000063E */
  598. label00000608:
  599. 00000608  536D FE56                subq.w     [A5 - 0x1AA], 1
  600. 0000060C  4E75                     rts
  601. fn0000060E:
  602. 0000060E  2F08                     move.l     -[A7], A0
  603. 00000610  4267                     clr.w      -[A7]
  604. 00000612  A938                     syscall    HiliteMenu
  605. 00000614  205F                     movea.l    A0, [A7]+
  606. 00000616  4E75                     rts
  607. label00000618:
  608. 00000618  4EAD 0032                jsr        [A5 + 0x32 /* export_2 */]
  609. 0000061C  4A43                     tst.w      D3
  610. 0000061E  660A                     bne        +0xC /* 0000062A */
  611. 00000620  362D F32C                move.w     D3, [A5 - 0xCD4]
  612. 00000624  426D F32C                clr.w      [A5 - 0xCD4]
  613. 00000628  600A                     bra        +0xC /* 00000634 */
  614. label0000062A:
  615. 0000062A  5343                     subq.w     D3, 1
  616. 0000062C  6600 0094                bne        +0x96 /* 000006C2 */
  617. 00000630  362D F32E                move.w     D3, [A5 - 0xCD2]
  618. label00000634:
  619. 00000634  4EAD 01AA                jsr        [A5 + 0x1AA /* export_49 */]
  620. 00000638  4EAD 0292                jsr        [A5 + 0x292 /* export_78 */]
  621. 0000063C  60CA                     bra        -0x34 /* 00000608 */
  622. fn0000063E:
  623. 0000063E  50ED F34E                st         [A5 - 0xCB2]
  624. 00000642  2F08                     move.l     -[A7], A0
  625. 00000644  0C43 000B                cmpi.w     D3, 0xB
  626. 00000648  6478                     bcc        +0x7A /* 000006C2 */
  627. 0000064A  4A43                     tst.w      D3
  628. 0000064C  6774                     beq        +0x76 /* 000006C2 */
  629. 0000064E  0C44 0015                cmpi.w     D4, 0x15
  630. 00000652  646E                     bcc        +0x70 /* 000006C2 */
  631. 00000654  0C45 0003                cmpi.w     D5, 0x3
  632. 00000658  6468                     bcc        +0x6A /* 000006C2 */
  633. 0000065A  4267                     clr.w      -[A7]
  634. 0000065C  A938                     syscall    HiliteMenu
  635. 0000065E  3C03                     move.w     D6, D3
  636. 00000660  E146                     asl        D6.w, 8
  637. 00000662  DC44                     add.w      D6, D4
  638. 00000664  2E0B                     move.l     D7, A3
  639. 00000666  6716                     beq        +0x18 /* 0000067E */
  640. 00000668  4EAD 086A                jsr        [A5 + 0x86A /* export_265 */]
  641. 0000066C  4A44                     tst.w      D4
  642. 0000066E  670C                     beq        +0xE /* 0000067C */
  643. 00000670  B66D F320                cmp.w      D3, [A5 - 0xCE0]
  644. 00000674  624C                     bhi        +0x4E /* 000006C2 */
  645. 00000676  6100 00AC                bsr        +0xAE /* 00000724 */
  646. 0000067A  6002                     bra        +0x4 /* 0000067E */
  647. label0000067C:
  648. 0000067C  6148                     bsr        +0x4A /* 000006C6 */
  649. label0000067E:
  650. 0000067E  B66D F320                cmp.w      D3, [A5 - 0xCE0]
  651. 00000682  623E                     bhi        +0x40 /* 000006C2 */
  652. 00000684  45ED F321                lea.l      A2, [A5 - 0xCDF]
  653. 00000688  4A32 3000                tst.b      [A2 + D3.w]
  654. 0000068C  6B34                     bmi        +0x36 /* 000006C2 */
  655. 0000068E  4A44                     tst.w      D4
  656. 00000690  6706                     beq        +0x8 /* 00000698 */
  657. 00000692  B832 3000                cmp.b      D4, [A2 + D3.w]
  658. 00000696  622A                     bhi        +0x2C /* 000006C2 */
  659. label00000698:
  660. 00000698  3006                     move.w     D0, D6
  661. 0000069A  4A45                     tst.w      D5
  662. 0000069C  6606                     bne        +0x8 /* 000006A4 */
  663. 0000069E  4EAD 090A                jsr        [A5 + 0x90A /* export_285 */]
  664. 000006A2  6004                     bra        +0x6 /* 000006A8 */
  665. label000006A4:
  666. 000006A4  4EAD 0902                jsr        [A5 + 0x902 /* export_284 */]
  667. label000006A8:
  668. 000006A8  3006                     move.w     D0, D6
  669. 000006AA  7200                     moveq.l    D1, 0x00
  670. 000006AC  0C45 0002                cmpi.w     D5, 0x2
  671. 000006B0  6608                     bne        +0xA /* 000006BA */
  672. 000006B2  4A44                     tst.w      D4
  673. 000006B4  670C                     beq        +0xE /* 000006C2 */
  674. 000006B6  323C 0100                move.w     D1, 0x100
  675. label000006BA:
  676. 000006BA  4EAD 0912                jsr        [A5 + 0x912 /* export_286 */]
  677. 000006BE  205F                     movea.l    A0, [A7]+
  678. 000006C0  4E75                     rts
  679. label000006C2:
  680. 000006C2  4EED 0182                jmp        [A5 + 0x182 /* export_44 */]
  681. fn000006C6:
  682. 000006C6  48E7 F8D8                movem.l    -[A7], D0,D1,D2,D3,D4,A0,A1,A3,A4
  683. 000006CA  382D F320                move.w     D4, [A5 - 0xCE0]
  684. label000006CE:
  685. 000006CE  B644                     cmp.w      D3, D4
  686. 000006D0  6318                     bls        +0x1A /* 000006EA */
  687. 000006D2  5244                     addq.w     D4, 1
  688. 000006D4  3B44 F320                move.w     [A5 - 0xCE0], D4
  689. 000006D8  42A7                     clr.l      -[A7]
  690. 000006DA  3F04                     move.w     -[A7], D4
  691. 000006DC  5257                     addq.w     [A7], 1
  692. 000006DE  487A 0042                pea.l      [PC + 0x42 /* 00000722, value 0x12048E7 */]
  693. 000006E2  A931                     syscall    NewMenu
  694. 000006E4  4267                     clr.w      -[A7]
  695. 000006E6  A935                     syscall    InsertMenu
  696. 000006E8  60E4                     bra        -0x1A /* 000006CE */
  697. label000006EA:
  698. 000006EA  3003                     move.w     D0, D3
  699. 000006EC  4EAD 08FA                jsr        [A5 + 0x8FA /* export_283 */]
  700. 000006F0  2848                     movea.l    A4, A0
  701. 000006F2  47ED F321                lea.l      A3, [A5 - 0xCDF]
  702. 000006F6  3F03                     move.w     -[A7], D3
  703. 000006F8  5257                     addq.w     [A7], 1
  704. 000006FA  A936                     syscall    DeleteMenu
  705. 000006FC  4A33 3000                tst.b      [A3 + D3.w]
  706. 00000700  6B04                     bmi        +0x6 /* 00000706 */
  707. 00000702  2F0C                     move.l     -[A7], A4
  708. 00000704  A932                     syscall    DisposeMenu
  709. label00000706:
  710. 00000706  4233 3000                clr.b      [A3 + D3.w]
  711. 0000070A  42A7                     clr.l      -[A7]
  712. 0000070C  5243                     addq.w     D3, 1
  713. 0000070E  3F03                     move.w     -[A7], D3
  714. 00000710  486D ED88                pea.l      [A5 - 0x1278]
  715. 00000714  A931                     syscall    NewMenu
  716. 00000716  5243                     addq.w     D3, 1
  717. 00000718  3F03                     move.w     -[A7], D3
  718. 0000071A  A935                     syscall    InsertMenu
  719. 0000071C  4CDF 1B1F                movem.l    D0,D1,D2,D3,D4,A0,A1,A3,A4, [A7]+
  720. 00000720  4E75                     rts
  721. 00000722  0120                     btst       -[A0], D0
  722. fn00000724:
  723. 00000724  48E7 E0F0                movem.l    -[A7], D0,D1,D2,A0,A1,A2,A3
  724. 00000728  3003                     move.w     D0, D3
  725. 0000072A  4EAD 08FA                jsr        [A5 + 0x8FA /* export_283 */]
  726. 0000072E  2648                     movea.l    A3, A0
  727. 00000730  45ED F321                lea.l      A2, [A5 - 0xCDF]
  728. 00000734  45F2 3000                lea.l      A2, [A2 + D3.w]
  729. label00000738:
  730. 00000738  B812                     cmp.b      D4, [A2]
  731. 0000073A  630C                     bls        +0xE /* 00000748 */
  732. 0000073C  5212                     addq.b     [A2], 1
  733. 0000073E  2F0B                     move.l     -[A7], A3
  734. 00000740  487A FFE0                pea.l      [PC - 0x20 /* 00000722, value 0x12048E7 */]
  735. 00000744  A933                     syscall    AppendMenu
  736. 00000746  60F0                     bra        -0xE /* 00000738 */
  737. label00000748:
  738. 00000748  2F0B                     move.l     -[A7], A3
  739. 0000074A  3F04                     move.w     -[A7], D4
  740. 0000074C  486D ED88                pea.l      [A5 - 0x1278]
  741. 00000750  A947                     syscall    SetMenuItemText/SetItem
  742. 00000752  4CDF 0F07                movem.l    D0,D1,D2,A0,A1,A2,A3, [A7]+
  743. 00000756  4E75                     rts
  744. export_517:
  745. fn00000758:
  746. 00000758  526D FE56                addq.w     [A5 - 0x1AA], 1
  747. 0000075C  48E7 F0F0                movem.l    -[A7], D0,D1,D2,D3,A0,A1,A2,A3
  748. 00000760  422D F34E                clr.b      [A5 - 0xCB2]
  749. 00000764  45ED F322                lea.l      A2, [A5 - 0xCDE]
  750. 00000768  7601                     moveq.l    D3, 0x01
  751. label0000076A:
  752. 0000076A  B66D F320                cmp.w      D3, [A5 - 0xCE0]
  753. 0000076E  6212                     bhi        +0x14 /* 00000782 */
  754. 00000770  3003                     move.w     D0, D3
  755. 00000772  5243                     addq.w     D3, 1
  756. 00000774  4EAD 08FA                jsr        [A5 + 0x8FA /* export_283 */]
  757. 00000778  4A1A                     tst.b      [A2]+
  758. 0000077A  6BEE                     bmi        -0x10 /* 0000076A */
  759. 0000077C  2F08                     move.l     -[A7], A0
  760. 0000077E  A932                     syscall    DisposeMenu
  761. 00000780  60E8                     bra        -0x16 /* 0000076A */
  762. label00000782:
  763. 00000782  7005                     moveq.l    D0, 0x05
  764. 00000784  3B40 F320                move.w     [A5 - 0xCE0], D0
  765. 00000788  45ED F322                lea.l      A2, [A5 - 0xCDE]
  766. label0000078C:
  767. 0000078C  14FC 00FF                move.b     [A2]+, 0xFF
  768. 00000790  51C8 FFFA                dbf        D0, -0x8 /* 0000078C */
  769. 00000794  A934                     syscall    ClearMenuBar
  770. 00000796  2F2D F330                move.l     -[A7], [A5 - 0xCD0]
  771. 0000079A  A93C                     syscall    SetMenuBar
  772. 0000079C  303C 0300                move.w     D0, 0x300
  773. 000007A0  4EAD 08F2                jsr        [A5 + 0x8F2 /* export_282 */]
  774. 000007A4  4CDF 0F0F                movem.l    D0,D1,D2,D3,A0,A1,A2,A3, [A7]+
  775. 000007A8  536D FE56                subq.w     [A5 - 0x1AA], 1
  776. 000007AC  4E75                     rts
  777.